home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / CAMERA.TCL < prev    next >
Encoding:
Text File  |  2002-04-08  |  1.7 KB  |  63 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   VONS DIE KAMERA
  6. #
  7. #   created:    08-May-2001 Bernd + Jeremy 
  8. #   
  9. #   (C) COPYRIGHT 2001 RADONLABS GMBH
  10. #
  11.  
  12. proc camerawatch_normal {} {
  13. }
  14.  
  15. proc camerawatch_finished {} {
  16. }
  17.  
  18. proc camerawatch_cinematic {} {
  19.     if {[.iscinematicfinished] == "true"} {
  20.         .announcestate finished
  21.         .setremoveable true
  22.     }
  23. }    
  24.  
  25.  
  26. #-------------------------------------------------------------------------------
  27. # statewatch.addactivatecommand
  28. #   fⁿr den Camera Prototyp
  29. #
  30. #   FIXME! Es ist nicht 100% sichergestellt - da▀ nach
  31. #   Ende der Camera-Sequenz Handkontrolle und Viewer wieder
  32. #   so sind wie davor.
  33. #
  34. #-------------------------------------------------------------------------------
  35.  
  36.  
  37. #-------------------------------------------------------------------------------
  38. # Camera nimmt sich Viewer und Steuerung
  39. #-------------------------------------------------------------------------------
  40. proc cinecam_activate {} {
  41.     /world.setviewercarrier [psel]
  42.     /world.unsethandcontrol
  43.     /world.setcontrolowner [psel]
  44. }
  45.  
  46. #-------------------------------------------------------------------------------
  47. # Camera gibt Viewer und Steuerung wieder zurⁿck
  48. #
  49. #   08-Jan-02   floh    Bugfix: stuerzte ab wenn kein UserClan/UserMaennel
  50. #                       existierte (konnte beim Aufraeumen passieren)
  51. #-------------------------------------------------------------------------------
  52. proc cinecam_deactivate {} {
  53.     set clan [/world.getuserclan]
  54.     if {$clan == "null"} {
  55.         return
  56.     }
  57.     set maennel [$clan.getmaennel]
  58.     if {$maennel == "null"} {
  59.         return
  60.     }
  61.     $maennel.resetmaennel
  62. }
  63.